home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / spr ii routines (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  269b  |  10 lines
  1. 60000 iflen(op$)=0then60020
  2. 60010 vx=len(op$):forvv=1tovx:cc$=mid$(op$,vv,1):poke38868+vv,asc(cc$):nextvv
  3. 60020 poke38708,len(op$):return
  4. 60100 cc$="":op$="":sys38731
  5. 60110 getcc$:ifcc$<>chr$(13)thenop$=op$+cc$:goto60110
  6. 60120 sys38740:o9$=op$
  7. 60130 ifo9$=""thenreturn
  8. 60140 ifleft$(o9$,1)=" "thenop=len(o9$)-1:o9$=right$(o9$,op):goto60130
  9. 60150 op=val(o9$):return
  10.